Integrand size = 15, antiderivative size = 64 \[ \int \frac {\cot ^2(a+i \log (x))}{x^2} \, dx=\frac {e^{2 i a}}{x \left (e^{2 i a}-x^2\right )}-\frac {3 x}{e^{2 i a}-x^2}-2 e^{-i a} \text {arctanh}\left (e^{-i a} x\right ) \]
Time = 0.09 (sec) , antiderivative size = 72, normalized size of antiderivative = 1.12 \[ \int \frac {\cot ^2(a+i \log (x))}{x^2} \, dx=\frac {1}{x}-2 \text {arctanh}(x (\cos (a)-i \sin (a))) \cos (a)+2 i \text {arctanh}(x (\cos (a)-i \sin (a))) \sin (a)+\frac {2 x (\cos (a)-i \sin (a))}{\left (-1+x^2\right ) \cos (a)-i \left (1+x^2\right ) \sin (a)} \]
x^(-1) - 2*ArcTanh[x*(Cos[a] - I*Sin[a])]*Cos[a] + (2*I)*ArcTanh[x*(Cos[a] - I*Sin[a])]*Sin[a] + (2*x*(Cos[a] - I*Sin[a]))/((-1 + x^2)*Cos[a] - I*(1 + x^2)*Sin[a])
Time = 0.25 (sec) , antiderivative size = 81, normalized size of antiderivative = 1.27, number of steps used = 5, number of rules used = 5, \(\frac {\text {number of rules}}{\text {integrand size}}\) = 0.333, Rules used = {5007, 947, 365, 298, 219}
Below are the steps used by Rubi to obtain the solution. The rule number used for the transformation is given above next to the arrow. The rules definitions used are listed below.
\(\displaystyle \int \frac {\cot ^2(a+i \log (x))}{x^2} \, dx\) |
\(\Big \downarrow \) 5007 |
\(\displaystyle \int \frac {\left (-\frac {i e^{2 i a}}{x^2}-i\right )^2}{x^2 \left (1-\frac {e^{2 i a}}{x^2}\right )^2}dx\) |
\(\Big \downarrow \) 947 |
\(\displaystyle \int \frac {\left (-i e^{2 i a}-i x^2\right )^2}{x^2 \left (x^2-e^{2 i a}\right )^2}dx\) |
\(\Big \downarrow \) 365 |
\(\displaystyle \frac {e^{2 i a}}{x \left (-x^2+e^{2 i a}\right )}-e^{-2 i a} \int \frac {e^{2 i a} x^2+5 e^{4 i a}}{\left (e^{2 i a}-x^2\right )^2}dx\) |
\(\Big \downarrow \) 298 |
\(\displaystyle \frac {e^{2 i a}}{x \left (-x^2+e^{2 i a}\right )}-e^{-2 i a} \left (2 e^{2 i a} \int \frac {1}{e^{2 i a}-x^2}dx+\frac {3 e^{2 i a} x}{-x^2+e^{2 i a}}\right )\) |
\(\Big \downarrow \) 219 |
\(\displaystyle \frac {e^{2 i a}}{x \left (-x^2+e^{2 i a}\right )}-e^{-2 i a} \left (2 e^{i a} \text {arctanh}\left (e^{-i a} x\right )+\frac {3 e^{2 i a} x}{-x^2+e^{2 i a}}\right )\) |
E^((2*I)*a)/(x*(E^((2*I)*a) - x^2)) - ((3*E^((2*I)*a)*x)/(E^((2*I)*a) - x^ 2) + 2*E^(I*a)*ArcTanh[x/E^(I*a)])/E^((2*I)*a)
3.2.99.3.1 Defintions of rubi rules used
Int[((a_) + (b_.)*(x_)^2)^(-1), x_Symbol] :> Simp[(1/(Rt[a, 2]*Rt[-b, 2]))* ArcTanh[Rt[-b, 2]*(x/Rt[a, 2])], x] /; FreeQ[{a, b}, x] && NegQ[a/b] && (Gt Q[a, 0] || LtQ[b, 0])
Int[((a_) + (b_.)*(x_)^2)^(p_)*((c_) + (d_.)*(x_)^2), x_Symbol] :> Simp[(-( b*c - a*d))*x*((a + b*x^2)^(p + 1)/(2*a*b*(p + 1))), x] - Simp[(a*d - b*c*( 2*p + 3))/(2*a*b*(p + 1)) Int[(a + b*x^2)^(p + 1), x], x] /; FreeQ[{a, b, c, d, p}, x] && NeQ[b*c - a*d, 0] && (LtQ[p, -1] || ILtQ[1/2 + p, 0])
Int[((e_.)*(x_))^(m_)*((a_) + (b_.)*(x_)^2)^(p_)*((c_) + (d_.)*(x_)^2)^2, x _Symbol] :> Simp[c^2*(e*x)^(m + 1)*((a + b*x^2)^(p + 1)/(a*e*(m + 1))), x] - Simp[1/(a*e^2*(m + 1)) Int[(e*x)^(m + 2)*(a + b*x^2)^p*Simp[2*b*c^2*(p + 1) + c*(b*c - 2*a*d)*(m + 1) - a*d^2*(m + 1)*x^2, x], x], x] /; FreeQ[{a, b, c, d, e, p}, x] && NeQ[b*c - a*d, 0] && LtQ[m, -1]
Int[(x_)^(m_.)*((a_) + (b_.)*(x_)^(n_))^(p_.)*((c_) + (d_.)*(x_)^(n_))^(q_. ), x_Symbol] :> Int[x^(m + n*(p + q))*(b + a/x^n)^p*(d + c/x^n)^q, x] /; Fr eeQ[{a, b, c, d, m, n}, x] && NeQ[b*c - a*d, 0] && IntegersQ[p, q] && NegQ[ n]
Int[Cot[((a_.) + Log[x_]*(b_.))*(d_.)]^(p_.)*((e_.)*(x_))^(m_.), x_Symbol] :> Int[(e*x)^m*((-I - I*E^(2*I*a*d)*x^(2*I*b*d))/(1 - E^(2*I*a*d)*x^(2*I*b* d)))^p, x] /; FreeQ[{a, b, d, e, m, p}, x]
Time = 2.10 (sec) , antiderivative size = 38, normalized size of antiderivative = 0.59
method | result | size |
risch | \(\frac {1}{x}-\frac {2}{x \left (\frac {{\mathrm e}^{2 i a}}{x^{2}}-1\right )}-2 \,\operatorname {arctanh}\left (x \,{\mathrm e}^{-i a}\right ) {\mathrm e}^{-i a}\) | \(38\) |
Time = 0.24 (sec) , antiderivative size = 74, normalized size of antiderivative = 1.16 \[ \int \frac {\cot ^2(a+i \log (x))}{x^2} \, dx=-\frac {{\left (x^{3} - x e^{\left (2 i \, a\right )}\right )} e^{\left (-i \, a\right )} \log \left (x + e^{\left (i \, a\right )}\right ) - {\left (x^{3} - x e^{\left (2 i \, a\right )}\right )} e^{\left (-i \, a\right )} \log \left (x - e^{\left (i \, a\right )}\right ) - 3 \, x^{2} + e^{\left (2 i \, a\right )}}{x^{3} - x e^{\left (2 i \, a\right )}} \]
-((x^3 - x*e^(2*I*a))*e^(-I*a)*log(x + e^(I*a)) - (x^3 - x*e^(2*I*a))*e^(- I*a)*log(x - e^(I*a)) - 3*x^2 + e^(2*I*a))/(x^3 - x*e^(2*I*a))
Time = 0.21 (sec) , antiderivative size = 46, normalized size of antiderivative = 0.72 \[ \int \frac {\cot ^2(a+i \log (x))}{x^2} \, dx=- \frac {- 3 x^{2} + e^{2 i a}}{x^{3} - x e^{2 i a}} - \left (- \log {\left (x - e^{i a} \right )} + \log {\left (x + e^{i a} \right )}\right ) e^{- i a} \]
-(-3*x**2 + exp(2*I*a))/(x**3 - x*exp(2*I*a)) - (-log(x - exp(I*a)) + log( x + exp(I*a)))*exp(-I*a)
Both result and optimal contain complex but leaf count of result is larger than twice the leaf count of optimal. 276 vs. \(2 (50) = 100\).
Time = 0.22 (sec) , antiderivative size = 276, normalized size of antiderivative = 4.31 \[ \int \frac {\cot ^2(a+i \log (x))}{x^2} \, dx=-\frac {2 \, {\left ({\left (i \, \cos \left (a\right ) + \sin \left (a\right )\right )} \arctan \left (\sin \left (a\right ), x + \cos \left (a\right )\right ) + {\left (i \, \cos \left (a\right ) + \sin \left (a\right )\right )} \arctan \left (\sin \left (a\right ), x - \cos \left (a\right )\right )\right )} x^{3} + 2 \, {\left ({\left ({\left (-i \, \cos \left (a\right ) - \sin \left (a\right )\right )} \cos \left (2 \, a\right ) + {\left (\cos \left (a\right ) - i \, \sin \left (a\right )\right )} \sin \left (2 \, a\right )\right )} \arctan \left (\sin \left (a\right ), x + \cos \left (a\right )\right ) + {\left ({\left (-i \, \cos \left (a\right ) - \sin \left (a\right )\right )} \cos \left (2 \, a\right ) + {\left (\cos \left (a\right ) - i \, \sin \left (a\right )\right )} \sin \left (2 \, a\right )\right )} \arctan \left (\sin \left (a\right ), x - \cos \left (a\right )\right )\right )} x - 6 \, x^{2} + {\left (x^{3} {\left (\cos \left (a\right ) - i \, \sin \left (a\right )\right )} - {\left ({\left (\cos \left (a\right ) - i \, \sin \left (a\right )\right )} \cos \left (2 \, a\right ) + {\left (i \, \cos \left (a\right ) + \sin \left (a\right )\right )} \sin \left (2 \, a\right )\right )} x\right )} \log \left (x^{2} + 2 \, x \cos \left (a\right ) + \cos \left (a\right )^{2} + \sin \left (a\right )^{2}\right ) - {\left (x^{3} {\left (\cos \left (a\right ) - i \, \sin \left (a\right )\right )} - {\left ({\left (\cos \left (a\right ) - i \, \sin \left (a\right )\right )} \cos \left (2 \, a\right ) - {\left (-i \, \cos \left (a\right ) - \sin \left (a\right )\right )} \sin \left (2 \, a\right )\right )} x\right )} \log \left (x^{2} - 2 \, x \cos \left (a\right ) + \cos \left (a\right )^{2} + \sin \left (a\right )^{2}\right ) + 2 \, \cos \left (2 \, a\right ) + 2 i \, \sin \left (2 \, a\right )}{2 \, {\left (x^{3} - x {\left (\cos \left (2 \, a\right ) + i \, \sin \left (2 \, a\right )\right )}\right )}} \]
-1/2*(2*((I*cos(a) + sin(a))*arctan2(sin(a), x + cos(a)) + (I*cos(a) + sin (a))*arctan2(sin(a), x - cos(a)))*x^3 + 2*(((-I*cos(a) - sin(a))*cos(2*a) + (cos(a) - I*sin(a))*sin(2*a))*arctan2(sin(a), x + cos(a)) + ((-I*cos(a) - sin(a))*cos(2*a) + (cos(a) - I*sin(a))*sin(2*a))*arctan2(sin(a), x - cos (a)))*x - 6*x^2 + (x^3*(cos(a) - I*sin(a)) - ((cos(a) - I*sin(a))*cos(2*a) + (I*cos(a) + sin(a))*sin(2*a))*x)*log(x^2 + 2*x*cos(a) + cos(a)^2 + sin( a)^2) - (x^3*(cos(a) - I*sin(a)) - ((cos(a) - I*sin(a))*cos(2*a) - (-I*cos (a) - sin(a))*sin(2*a))*x)*log(x^2 - 2*x*cos(a) + cos(a)^2 + sin(a)^2) + 2 *cos(2*a) + 2*I*sin(2*a))/(x^3 - x*(cos(2*a) + I*sin(2*a)))
Time = 0.31 (sec) , antiderivative size = 87, normalized size of antiderivative = 1.36 \[ \int \frac {\cot ^2(a+i \log (x))}{x^2} \, dx=2 \, {\left (\frac {\arctan \left (\frac {x}{\sqrt {-e^{\left (2 i \, a\right )}}}\right ) e^{\left (-2 i \, a\right )}}{\sqrt {-e^{\left (2 i \, a\right )}}} + \frac {x e^{\left (-2 i \, a\right )}}{x^{2} - e^{\left (2 i \, a\right )}}\right )} e^{\left (2 i \, a\right )} + \frac {5 \, x^{2}}{x^{3} - x e^{\left (2 i \, a\right )}} - \frac {e^{\left (2 i \, a\right )}}{x^{3} - x e^{\left (2 i \, a\right )}} \]
2*(arctan(x/sqrt(-e^(2*I*a)))*e^(-2*I*a)/sqrt(-e^(2*I*a)) + x*e^(-2*I*a)/( x^2 - e^(2*I*a)))*e^(2*I*a) + 5*x^2/(x^3 - x*e^(2*I*a)) - e^(2*I*a)/(x^3 - x*e^(2*I*a))
Time = 27.47 (sec) , antiderivative size = 47, normalized size of antiderivative = 0.73 \[ \int \frac {\cot ^2(a+i \log (x))}{x^2} \, dx=-\frac {2\,\mathrm {atanh}\left (\frac {x}{\sqrt {{\mathrm {e}}^{a\,2{}\mathrm {i}}}}\right )}{\sqrt {{\mathrm {e}}^{a\,2{}\mathrm {i}}}}-\frac {{\mathrm {e}}^{a\,2{}\mathrm {i}}-3\,x^2}{x^3-x\,{\mathrm {e}}^{a\,2{}\mathrm {i}}} \]